home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 223 / 223.d81 / b.tile stylist (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  69 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 print"[144][147]":poke53280,0:poke53281,0
  3. 15 gosub60000
  4. 20 sys57812"tile font",dv,0:poke780,0:poke781,0:poke782,200:sys65493
  5. 30 print"[144][147]":poke56576,4:poke53272,2:poke648,192:poke53265,27
  6. 40 cl$="[144][159][156][158][129][149][150][151][152][153][154][155]":ch=4:bk=15:br=0:bc=0:pt=0
  7. 50 poke53280,br:poke53281,bc
  8. 60 printmid$(cl$,bk,1)"[147]"mid$(cl$,ch,1)
  9. 70 printtab(9)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  10. 80 printtab(9)"[165][160][160][160][160]tile[160]stylist[160][160][160][160][167]"
  11. 90 printtab(9)"[165][160][160][160]by[160]brian[160]boese[160][160][160][167]"
  12. 110 printtab(9)"[165][213][192][201][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  13. 114 printtab(9)"[165][221] [221][160]pattern[160]#[160][160][160][160][160][160][160][167]"
  14. 116 printtab(9)"[165][202][192][203][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  15. 120 printtab(9)"[165]+[160]=[160]next[160]pattern[160][160][160][160][167]"
  16. 130 printtab(9)"[165]-[160]=[160]last[160]pattern[160][160][160][160][167]"
  17. 140 printtab(9)"[165]*[160]=[160]reverse[160]pattern[160][167]"
  18. 150 printtab(9)"[165][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  19. 160 printtab(9)"[165]f1=[160]border[160]color[160][160][160][160][167]"
  20. 170 printtab(9)"[165]f3=[160]background[160]color[167]"
  21. 180 printtab(9)"[165]f5=[160]pattern[160]color[160][160][160][167]"
  22. 190 printtab(9)"[165]f7=[160]character[160]color[160][167]"
  23. 200 printtab(9)"[165][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
  24. 210 printtab(9)"[165]q[160]=[160]quit[160][160][160][160][160][160][160][160][160][160][160][160][167]"
  25. 220 printtab(9)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  26. 230 gosub350
  27. 233 poke214,8:print
  28. 235 printtab(23)"[160][160][160][157][157][157]"right$(str$(pt),len(str$(pt))-1)
  29. 240 geta$:ifa$=""then240
  30. 245 ifa$="q"then400
  31. 250 ifa$>="[133]"then300
  32. 260 ifa$="+"thenpt=pt+1:if(pt=128)or(pt=256)thenpt=pt-128
  33. 270 ifa$="-"thenpt=pt-1:if(pt=-1)or(pt=127)thenpt=pt+128
  34. 280 ifa$="*"thenpt=pt+128:ifpt>255thenpt=pt-256
  35. 290 goto230
  36. 300 ifa$="[133]"thenbr=br+1:ifbr>15thenbr=br-16
  37. 310 ifa$="[134]"thenbc=bc+1:ifbc>15thenbc=bc-16
  38. 320 ifa$="[135]"thenbk=bk+1:ifbk>16thenbk=bk-16
  39. 330 ifa$="[136]"thench=ch+1:ifch>16thench=ch-16
  40. 340 goto50
  41. 350 bg=51200+128*8+pt*8:ifpt>127thenbg=bg-128*8
  42. 360 forx=0to7:ifpt>127thenpoke51200+32*8+x,255-peek(bg+x):goto380
  43. 370 poke51200+32*8+x,peek(bg+x)
  44. 380 next:return
  45. 400 goto40000
  46. 10000 d=peek(186):n$="b.tile stylist":open1,d,15,"i0":close1
  47. 10001 open1,d,15,"s0:"+n$:close1:saven$,d:end
  48. 40000 fori=0to21:poke828+i,8+i:next
  49. 40010 ifdv<8ordv>29ordv=8then40030
  50. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  51. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  52. 40040 close2:open2,i,2:close2:ifstthen40060
  53. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  54. 40060 next:print"[147]":poke53272,23:poke186,8:end
  55. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  56. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  57. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  58. 60000 b9$="                                      "
  59. 60010 poke214,14:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  60. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  61. 60030 b9$(0)="[212] [201] [204] [197]   [211] [212] [217] [204] [201] [211] [212]"
  62. 60040 b9$(1)="by [194]rian [194]oese"
  63. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  64. 60060 b9$(3)="[214]1  [208]ublished on [204][207][193][196][211][212][193][210] #85"
  65. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  66. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  67. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  68. 60099 return
  69.